 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Be Notified Any Time a Service Goes Down
|
||
|
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colServices = objWMIService. _ ExecNotificationQuery("Select * from __InstanceModificationEvent " _ & "within 30 where TargetInstance isa 'Win32_Service'") i = 0 Do While i = 0 Set objService = colServices.NextEvent If objService.TargetInstance.State <> _ objService.PreviousInstance.State Then Wscript.Echo objService.TargetInstance.Name _ & " is " & objService.TargetInstance.State _ & ". The service previously was " & objService.PreviousInstance.State & "." End If Loop | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
